home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / beginners / Examples / if then.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  277 b   |  10 lines
  1. .start 
  2. number = Input ("How old are you ")
  3. If number < 18 Then Print "You are under 18": Goto Leave
  4. If number > 18 Then Print "You are over 18":Goto Leave
  5. If number = 18 Then Print "you are 18":Goto Leave
  6. .Leave
  7. Print "Press ESC to Exit"
  8. Repeat
  9.     VWait
  10. Until KeyHit(1)